bf <- vector("list", 5)

bf0 <- "v2x.polyarchy.n ~ 1 | cnamef + periodf | 0 | cnamef"
bf[[1]] <- sub("1", "l.CMgnh", bf0)
bf[[2]] <- sub("1",
               paste0("l.CMgnh + l.CMenh + l.CMgap.log + ",
                      "l.CMeap.log + l.pop.log.r + l.gdpcap.log.r + l.war25"),
                      bf0)
bf[[3]] <- sub("1",
               "l.pop.log.r + l.gdpcap.log.r + l.war25",
               sub("0",
               "(l.CMgnh ~ l.ZwvCMgwh94)",
               bf0))
bf[[4]] <- sub("1",
               "l.pop.log.r + l.gdpcap.log.r + l.war25",
               sub("0",
               "(I(l.CMgap.log * 10) ~ l.ZwvCMgwh94)",
               bf0))
bf[[5]] <- sub("1",
               "l.pop.log.r + l.gdpcap.log.r + l.war25",
               sub("0",
               "(IA_l ~ l.ZwvCMgwh94)",
               bf0))





# bf[[4]] <- sub("0",
#                "(l.CMgnh ~ l.ZwvCMgwh94)",
#                sub("1",
#                paste0("l.CMgap.log + ",
#                       "l.pop.log.r + l.gdpcap.log.r + l.war25"),
#                       bf0))

